home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MEDICAL / 2608A.ZIP / GP.ZIP / RPABBREV.SRC < prev    next >
Text File  |  1990-11-03  |  2KB  |  66 lines
  1. ;\|
  2. ;RPABBREV 09:47:00 AM  11/ 3/90   |
  3. DO_DEFINES:
  4.     define(TEMP1|A|6||)
  5. OPEN_FILES:
  6.     open(RPABBREV|||)
  7.     trap(S|G|SAVE_RECS)
  8.     trap(D|G|DEL_RECS)
  9.     trap(C|G|CLR_RECS)
  10.     trap(Q|G|EXIT)
  11. MOUNT_SCRS:
  12.     mount(RPABBREV|S||)
  13.     find(B|RPABBREVIATION|EXIT|)
  14. START:
  15.     enter(PA_CODE||||N|N|N|||N)
  16.     enter(RPABBREVIATION||||||||)
  17.     enter(RPABBREV.NAME||||N|N|N|||N)
  18.     enter(WARNING||||N|N|N|||N)
  19.     enter(DRUGCODE|" 24689"|||N|N|N|||N)
  20.     enter(PA_PRICE||||N|N|N|||N)
  21. SAVE_RECS:
  22.     save(RPABBREV|Y|Y|)
  23.     find(N|RPABBREV|EXIT|)
  24.     goto START
  25. DEL_RECS:
  26.     del(RPABBREV|Y|)
  27.     goto START
  28. CLR_RECS:
  29.     clr(RPABBREV|B)
  30.     goto START
  31. EXIT:
  32.     run("recmenu")
  33. \STRPABBREV
  34.  
  35.  
  36.                         RPABBREVIATION AND DRUGCODE ENTRY
  37.                   ╔══════════════════════════════════════════════╗
  38.                   ║ ABBREVIATION:&    <                          ║
  39.                   ║ DRUG NAME   :&                             < ║
  40.                   ║ WARNING     :&                               ║
  41.                   ║ DRUG CODE   :& <                             ║
  42.                   ║ PA_CODE     :&   <                           ║
  43.                   ║ PA_PRICE    :&                               ║
  44.                   ╚══════════════════════════════════════════════╝
  45.                             DRUG CODES - NOT PA_CODE
  46.                            ┌────────────────────────┐
  47.                            │  2 - DIABETES INSULIN  │
  48.                            │  4 - DIABETES ORAL     │
  49.                            │  5 - EPILEPTIC         │
  50.                            │  6 - THYROID           │
  51.                            │  8 - ASTHMA            │
  52.                            │  9 - BP/HEART          │
  53.                            └────────────────────────┘
  54.  
  55.  
  56.  
  57.  
  58. \
  59. RPABBREVIATION
  60. RPABBREV.NAME
  61. WARNING
  62. DRUGCODE
  63. PA_CODE
  64. PA_PRICE
  65. \
  66.